1 REM"          "BM EYES ONLY!(null)
2 POKE 808,234:POKE 53280,0:POKE 53281,0
4 FORT=1 TO 500:NEXT
6 PRINT"[147][155]"TAB(7)"THE BIG MOUTH - MAIN MENU"
8 FORT=1 TO 2000:NEXT
10 PRINT"[147]"
15 FORT=1 TO 500:NEXT
20 PRINTTAB(7)"THE BIG MOUTH - MAIN MENU"
30 PRINT"A - CONFUSING QUEST INSTRUCTIONS"
31 PRINT"B - CONFUSING QUEST INTRO"
32 PRINT"C - QUEST 1"
33 PRINT"D - QUEST 2"
34 PRINT"E - QUEST 3"
35 PRINT"F - QUEST 4"
36 PRINT"G - QUEST 5"
37 PRINT"H - CONTACT ME/NATHAN SMITH"
50 PRINT"PICK A PROGRAM TO LOAD (A-H) ?"
55 GET A$:IF A$="" THEN 55
60 A=ASC(A$):IF A-64<1 OR A-64>8 THEN 55
65 FORX=49152 TO 49170:READY:POKE X,Y:NEXTX
70 PRINT""TAB(15)" LOADING "
75 SYS 49152
76 DATA 120,169,013,141,040,003,169,192
77 DATA 141,041,003,088,096,238,032,208
78 DATA 076,237,246
80 ON A-64 GOTO 101,102,103,104,105,106,107,110
100 :
101 LOAD"CQ  INSTRUCTIONS",8,1
102 LOAD"CONF.QUEST INTRO",8,1
103 LOAD"C.QUEST -QUEST 1",8,1
104 LOAD"C.QUEST -QUEST 2",8,1
105 LOAD"C.QUEST -QUEST 3",8,1
106 LOAD"C.QUEST -QUEST 4",8,1
107 PRINT"  CONFUSING QUEST - CODES FOR QUEST 5"
108 PRINT"   4719"TAB(13)"1005"TAB(23)"7916"TAB(33)"5107"
109 LOAD"C.QUEST -QUEST 5",8,1
110 LOAD"CONTACT ME   /NS",8,1